home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 2 / Dark_Star_02_1995_-_de_Side_A.d64 / .programmlisten< (.txt) next >
Commodore BASIC  |  2023-02-26  |  14KB  |  467 lines
  1. 9 dimd$(200,3):poke53280,0:poke53281,0:poke646,6:poke24,0
  2. 10 gosub70:goto100
  3. 20 poke198,0:wait198,1:gete$
  4. 21 ife$=chr$(133)thenreturn
  5. 22 goto20
  6. 25 poke198,0:wait198,1:gete$
  7. 26 ife$=chr$(136)thenreturn
  8. 27 goto25
  9. 40 e$="":zu=1
  10. 41 poke214,r:poke211,s:sys58640:z=0
  11. 42 poke204,0:get a$:if a$=""goto42
  12. 43 if asc(a$)=64 then zu=0
  13. 44 ifzu=0 and asc(a$)=13 then print".":poke204,1:zu=1:goto 63
  14. 46 if asc(a$)=44 goto 42
  15. 47 if asc(a$)=13 and len(e$)<>l then print" ":goto54
  16. 48 if asc(a$)=13 and len(e$)=l then print" ":goto54
  17. 49 if asc(a$)=20 then print".":goto 55:rem inst/del-taste
  18. 50 if len(e$)=l goto 42
  19. 51 if asc(a$)<32 or asc(a$)>90 goto 42
  20. 52 print a$;:e$=e$+a$:z=z+1
  21. 53 goto 42
  22. 54 poke204,1:return
  23. 55 poke204,1:if len(e$)=0 then a$="":goto 40
  24. 56 if len(a$)=0 goto 42
  25. 57 if z=0 goto 42
  26. 58 poke204,1:a$=left$(a$,len(a$)-1)
  27. 59 e$=left$(e$,len(e$)-1)
  28. 60 poke214,r:poke211,s:sys58640
  29. 61 print e$;:z=z-1
  30. 62 poke 214,r:poke211,s+len(e$):sys58640:goto 42
  31. 63 return
  32. 70 s1$="":r1$="":r2$=""
  33. 71 s2$=s1$+"datendisk in floppy          drueck f 1":r3$=""
  34. 72 s3$=s1$+"              bitte warten             ":r4$=""
  35. 73 s4$=s1$+"floppy-fehler                drueck f 7"
  36. 74 s5$=s1$+"                                       ":r5$="":r6$=""
  37. 75 s6$=s1$+"falsche eingabe              drueck f 1"
  38. 76 s7$=s1$+"keine daten vorhanden        drueck f 1"
  39. 77 s8$=s1$+"datenende                    drueck f 1"
  40. 78 s9$=s1$+"           drucker in betrieb          "
  41. 79 return
  42. 80 fori=5to22:poke781,i:sys59903:next:return
  43. 90 poke768,61:open1,4,7:print#1,"";:close1:poke768,139
  44. 91 ifst<>-128thenreturn
  45. 92 prints1$:print"[145]drucker anschliessen         drueck f 1":gosub20:goto1100
  46. 100 print"[147]"
  47. 101 print" [154][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146]"
  48. 102 print" [154][214]                                  [214][146]"
  49. 103 print" [154][214]     programmlisten erstellen     [214][146]"
  50. 104 print" [154][214]                                  [214][146]"
  51. 105 print" [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146]"
  52. 110 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][178][192][192][192][192][192][192][179]"
  53. 111 print" [194]                        [194]   [194]      [194]"
  54. 112 print" [194] liste eingeben         [194] 1 [194]      [194]"
  55. 113 print" [194]                        [194]   [194]      [194]"
  56. 114 print" [194] liste ausgeben         [194] 2 [194]      [194]"
  57. 115 print" [194]                        [194]   [194]      [194]"
  58. 116 print" [194] liste einlesen         [194] 3 [194]      [194]"
  59. 117 print" [194]                        [194]   [194]      [194]"
  60. 118 print" [194] liste speichern        [194] 4 [194]      [194]"
  61. 119 print" [194]                        [194]   [194]      [194]"
  62. 120 print" [194] disk-operationen       [194] 5 [194]      [194]"
  63. 121 print" [194]                        [194]   [194]      [194]"
  64. 122 print" [194] programmende           [194] 6 [194]      [194]"
  65. 123 print" [194]                        [194]   [194]      [194]"
  66. 124 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][177][192][192][192][192][192][192][179]"
  67. 130 poke198,0:wait198,1:gete$
  68. 131 ife$="1"thengosub140:goto200
  69. 132 ife$="2"thengosub141:gosub160:goto300
  70. 133 ife$="3"thengosub142:goto1600
  71. 134 ife$="4"thengosub143:gosub160:goto1500
  72. 135 ife$="5"thengosub144:goto1400
  73. 136 ife$="6"thengosub145:goto5000
  74. 138 goto130
  75. 140 print"":gosub150:return
  76. 141 print"":gosub150:return
  77. 142 print"":gosub150:return
  78. 143 print"":gosub150:return
  79. 144 print"":gosub150:return
  80. 145 print"":gosub150:return
  81. 150 printtab(33)"_":fori=1to1000:next:return
  82. 160 ifd$(d,1)=""thenprints7$:gosub20:goto100
  83. 161 return
  84. 200 print"[147] [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
  85. 201 print" [154]*                                   *"
  86. 202 print" [154]*           daten eingabe           *"
  87. 203 print" [154]*                                   *"
  88. 204 print" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
  89. 205 d=d+1:prints5$
  90. 206 gosub210:printr4$;tab(13);d;tab(32);300-d;:goto222
  91. 210 printr3$:pp=0
  92. 211 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  93. 212 print" [194]                                   [194]"
  94. 213 print" [194]datensatz.:     noch vorhanden     [194]"
  95. 214 print" [194]                                   [194]"
  96. 215 print" [194]1) prg.-titel : ................   [194]"
  97. 216 print" [194]                                   [194]"
  98. 217 print" [194]2) kategorie  : .................. [194]"
  99. 218 print" [194]                                   [194]"
  100. 219 print" [194]3) blocks     : ...                [194]"
  101. 220 print" [194]                                   [194]"
  102. 221 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":return
  103. 222 r=13:s=18:l=16:gosub40:d$(d,1)=e$
  104. 223 iflen(d$(d,1))<=0then222
  105. 224 ifpp=1thenreturn
  106. 225 r=15:s=18:l=18:gosub40:d$(d,2)=e$
  107. 226 iflen(d$(d,2))<=0thend$(d,2)="-"
  108. 227 ifpp=1thenreturn
  109. 229 r=17:s=18:l=3:gosub40:d$(d,3)=e$
  110. 230 iflen(d$(d,3))<=0thend$(d,3)="-"
  111. 231 ifpp=1thenreturn
  112. 233 prints1$:print"[145]weiter f 1    korrektur f 3   menue f 7"
  113. 234 poke198,0:wait198,1:gete$
  114. 235 ife$=chr$(133)then205
  115. 236 ife$=chr$(134)then240
  116. 237 ife$=chr$(136)then100
  117. 238 goto234
  118. 240 prints1$:print"[145]welche zeile (1-3)  keine aenderung f 1":pp=1
  119. 241 poke198,0:wait198,1:gete$
  120. 242 ife$="1"thengosub222:goto250
  121. 243 ife$="2"thengosub225:goto250
  122. 244 ife$="3"thengosub229:goto250
  123. 245 ife$=chr$(133)then233
  124. 246 goto241
  125. 250 prints1$:print"[145]noch aendern f 1    keine aenderung f 3"
  126. 251 poke198,0:wait198,1:gete$
  127. 252 ife$=chr$(133)then240
  128. 253 ife$=chr$(134)then233
  129. 254 goto251
  130. 260 prints2$:gosub20:prints3$
  131. 261 open1,8,15,"s:"+a$:close1
  132. 262 x=0:open2,8,15:open1,8,2,+a$+",s,w":input#2,x
  133. 263 ifx=0then265
  134. 264 ifx>0thenclose2:close1:close15:prints4$:gosub25:goto100
  135. 265 print#1,d:forj=1tod:form=1to3
  136. 266 print#1,d$(j,m):nextm,j:close2:close3:close15:return
  137. 269 prints2$:gosub20:prints3$
  138. 270 x=0:open2,8,15:open1,8,2,+a$+",s,r":input#2,x
  139. 271 ifx=0then273
  140. 272 ifx>0thenclose2:close1:close15:prints4$:gosub25:goto100
  141. 273 input#1,d:forj=1tod:form=1to3
  142. 274 input#1,d$(j,m):nextm,j:close2:close1:close15:return
  143. 300 print"[147] [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
  144. 301 print" [154]*                                   *"
  145. 302 print" [154]*           daten ausgabe           *"
  146. 303 print" [154]*                                   *"
  147. 304 print" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
  148. 309 gosub1000
  149. 310 gosub80:gosub210:forb=1tod:gosub350
  150. 311 prints1$:print"[145]weiter f 1                  beenden f 3"
  151. 312 poke198,0:wait198,1:gete$
  152. 313 ife$=chr$(133)then317
  153. 315 ife$=chr$(134)then309
  154. 316 goto312
  155. 317 gosub210:next
  156. 318 prints1$:prints8$:gosub20:goto300
  157. 340 gosub1000
  158. 350 print""
  159. 351 printtab(13);b;tab(32);300-b:print
  160. 352 printtab(18);d$(b,1):print
  161. 353 ifleft$(d$(b,2),1)="-"thend$(b,2)=""
  162. 354 printtab(18);d$(b,2):print
  163. 355 ifleft$(d$(b,3),1)="-"thend$(b,3)=""
  164. 356 printtab(18);d$(b,3):return
  165. 370 l=1:b(l)=d+1:m=1
  166. 371 j=b(l):i=m-1
  167. 372 ifj-m<3then386
  168. 373 m1=int((i+j)/2)
  169. 374 i=i+1
  170. 375 ifi=jthen382
  171. 376 ifd$(i,1)<=d$(m1,1)then374
  172. 377 j=j-1
  173. 378 ifi=jthen382
  174. 379 ifd$(j,1)>=d$(m1,1)then377
  175. 380 forz=1to3:d$(o,z)=d$(i,z):d$(i,z)=d$(j,z):d$(j,z)=d$(o,z):next
  176. 381 goto374
  177. 382 ifi>=m1theni=i-1
  178. 383 ifj=m1then385
  179. 384 forz=1to3:d$(o,z)=d$(i,z):d$(i,z)=d$(m1,z):d$(m1,z)=d$(o,z):next
  180. 385 l=l+1:b(l)=i:goto371
  181. 386 ifj-m<2then389
  182. 387 ifd$(m,1)<d$(m+1,1)then389
  183. 388 forz=1to3:d$(o,z)=d$(m,z):d$(m,z)=d$(m+1,z):d$(m+1,z)=d$(o,z):next
  184. 389 m=b(l)+1:l=l-1
  185. 390 ifl>0then371
  186. 391 return
  187. 1000 gosub80:prints5$;r1$
  188. 1001 printtab(5)"ausgabe einzeln     f 1 [146]"
  189. 1002 printtab(5)"ausgabe gesamt      f 3 [146]"
  190. 1003 printtab(5)"ausdrucken          f 5 [146]"
  191. 1004 printtab(5)"zum hauptmenue      f 7 [146]"
  192. 1005 poke198,0:wait198,1:gete$
  193. 1006 ife$=chr$(133)then1020
  194. 1007 ife$=chr$(134)then1011
  195. 1008 ife$=chr$(136)then100
  196. 1009 ife$=chr$(135)then2000
  197. 1010 goto1005
  198. 1011 gosub80:prints5$;r1$:printtab(5)"ausgabe normal      f 1 [146]"
  199. 1012 printtab(5)"ausgabe sortiert    f 3 [146]"
  200. 1013 printtab(5)"zum untermenue      f 7 [146]"
  201. 1014 poke198,0:wait198,1:gete$
  202. 1015 ife$=chr$(133)then310
  203. 1016 ife$=chr$(134)thenprints3$:gosub370:goto310
  204. 1017 ife$=chr$(136)then1000
  205. 1018 goto1014
  206. 1020 gosub80:prints5$:printr5$
  207. 1021 printtab(7)"suchen datennummer  f 1 [146]"
  208. 1022 printtab(7)"suchen prg.titel    f 3 [146]"
  209. 1023 printtab(7)"listen prg.titel    f 5 [146]"
  210. 1024 printtab(7)"zum untermenue      f 7 [146]"
  211. 1025 poke198,0:wait198,1:gete$
  212. 1026 ife$=chr$(133)thengosub1040:goto1200
  213. 1027 ife$=chr$(134)thengosub1060:goto1200
  214. 1028 ife$=chr$(136)then1000
  215. 1029 ife$=chr$(135)then1080
  216. 1030 goto1025
  217. 1040 printr2$:printtab(7)"geben sie die gesuchte"
  218. 1042 printtab(7)"datennummer ein."
  219. 1043 printtab(7)"zum untermenue mit  * [146]"
  220. 1044 printtab(7)"datennummer : ..."
  221. 1045 r=20:s=21:l=3:gosub40:za$=e$:za=val(za$):ifza$="*"then1000
  222. 1046 iflen(za$)<=0then1045
  223. 1048 forb=1tod
  224. 1049 ifza=bthenreturn
  225. 1050 ifza<=0thenprints6$:gosub20:gosub80:prints5$:goto1040
  226. 1051 next:prints7$:gosub20:goto1020
  227. 1060 printr2$:printtab(7)"geben sie den gesuchten"
  228. 1062 printtab(7)"programm-titel ein."
  229. 1063 printtab(7)"zum untermenue mit  * [146]"
  230. 1064 printtab(7)"prg.-titel: ................"
  231. 1065 r=20:s=19:l=16:gosub40:za$=e$:ifza$="*"then1000
  232. 1066 iflen(za$)<=0thenprints6$:gosub20:gosub80:prints5$:goto1060
  233. 1068 forb=1tod
  234. 1069 ifza$=d$(b,1)thenreturn
  235. 1070 ifza$=left$(d$(b,1),1)orza$=left$(d$(b,1),2)orza$=left$(d$(b,1),3)thenreturn
  236. 1071 ifza$=left$(d$(b,1),4)orza$=left$(d$(b,1),5)orza$=left$(d$(b,1),6)thenreturn
  237. 1072 next:prints7$:gosub20:goto1020
  238. 1080 gosub80:printr6$:v=0:forb=1tod:v=v+1:
  239. 1082 printtab(5);"nr.:";b;tab(15)"titel : ";d$(b,1)
  240. 1085 ifv=15then1087
  241. 1086 next:prints8$:gosub20:goto1020
  242. 1087 prints1$:print"[145]weiter f 1                  beenden f 5"
  243. 1090 poke198,0:wait198,1:gete$
  244. 1091 ife$=chr$(133)thenv=0:gosub80:printr6$:goto1086
  245. 1093 ife$=chr$(135)then1020
  246. 1094 goto1090
  247. 1100 gosub80:prints5$;r1$
  248. 1101 printtab(10)"schalten sie bitte"
  249. 1102 printtab(10)"den drucker ein  ."
  250. 1103 printtab(10)"drueck        f 1 [146]"
  251. 1104 printtab(10)"oder menue    f 7 [146]"
  252. 1105 poke198,0:wait198,1:gete$
  253. 1106 ife$=chr$(133)thengosub90:return
  254. 1107 ife$=chr$(136)then1000
  255. 1108 goto1105
  256. 1200 gosub80:gosub210:gosub350
  257. 1210 prints1$:print"[145]weiter f 1  korrektur f 3  loeschen f 5"
  258. 1211 poke198,0:wait198,1:gete$
  259. 1212 ife$=chr$(133)then1020
  260. 1213 ife$=chr$(134)then1350
  261. 1214 ife$=chr$(135)then4500
  262. 1215 goto1211
  263. 1300 r=13:s=18:l=16:gosub40:d$(b,1)=e$
  264. 1301 iflen(d$(b,1))<=0then1300
  265. 1302 return
  266. 1305 r=15:s=18:l=18:gosub40:d$(b,2)=e$
  267. 1306 iflen(d$(b,2))<=0thend$(b,2)="-"
  268. 1307 return
  269. 1310 r=17:s=18:l=3:gosub40:d$(b,3)=e$
  270. 1311 iflen(d$(b,3))<=0thend$(b,3)="-"
  271. 1312 return
  272. 1350 prints1$:print"[145]welche zeile 1 - 3          beenden f 1"
  273. 1356 poke198,0:wait198,1:gete$
  274. 1357 ife$="1"thengosub1300:goto1370
  275. 1358 ife$="2"thengosub1305:goto1370
  276. 1359 ife$="3"thengosub1310:goto1370
  277. 1360 ife$=chr$(133)then1020
  278. 1361 goto1356
  279. 1370 prints1$:print"[145]noch korrigieren f 1        beenden f 3"
  280. 1371 poke198,0:wait198,1:gete$
  281. 1372 ife$=chr$(133)thengosub210:gosub350:goto1350
  282. 1374 ife$=chr$(134)then1020
  283. 1375 goto1371
  284. 1400 print"[147]":prints5$:print" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
  285. 1401 print" [154]*                                   *"
  286. 1402 print" [154]*           disk-operationen        *"
  287. 1403 print" [154]*                                   *"
  288. 1404 print" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
  289. 1410 printtab(5)"diskette formatieren   f 1 [146]"
  290. 1411 printtab(5)"diskette validieren    f 3 [146]"
  291. 1412 printtab(5)"datei scratchen        f 5 [146]"
  292. 1413 printtab(5)"directory einlesen     f 2 [146]"
  293. 1414 printtab(5)"zum hauptmenue         f 7 [146]"
  294. 1415 poke198,0:wait198,1:gete$
  295. 1416 ife$=chr$(133)then1430
  296. 1417 ife$=chr$(134)then1460
  297. 1418 ife$=chr$(135)then1700
  298. 1419 ife$=chr$(136)then100
  299. 1420 ife$=chr$(137)then4000
  300. 1421 goto1415
  301. 1430 printtab(5)"keine formatierung  * [146]"
  302. 1431 printtab(5)"nur  return [146] bei id=weiche form."
  303. 1432 printtab(5)"diskname : ................"
  304. 1433 printtab(5)"id-nummer: .."
  305. 1435 r=19:s=16:l=16:gosub40:za$=e$:ifza$="*"then1400
  306. 1436 iflen(za$)<=0then1435
  307. 1437 r=20:s=16:l=2:gosub40:z1$=e$:ifz1$="*"then1400
  308. 1438 ifz1$=""thenz1$="":goto1441
  309. 1440 z1=val(z1$):ifz1<=0then1437
  310. 1441 za$=za$+","+z1$
  311. 1445 prints2$:gosub20:prints1$:print"[145]diskette wird formatiert   bitte warten"
  312. 1447 x=0:open15,8,15,"n:"+za$:input#15,x:gosub1448:close15:goto1450
  313. 1448 ifx=0thenreturn
  314. 1449 ifx>0thenprints4$:close15:gosub25:goto1400
  315. 1450 prints1$:print"[145]formatierung abgeschlossen   drueck f 1"
  316. 1452 gosub80:printr3$:print"           directory ausgabe           "
  317. 1453 open3,8,0,"$"+dr$:get#3,x$,y$:get#3,x$,y$:get#3,x$,y$:printr4$
  318. 1454 printtab(8);chr$(48-(x$>""));" ";:fori=1to23:get#3,x$:printx$;:next:close3
  319. 1455 prints1$:print"[145]zum disk-menue               drueck f 1":gosub20:goto1400
  320. 1460 prints2$:gosub20:prints1$:print"[145]     valdidate wird durchgefuehrt      ":x=0
  321. 1461 open15,8,15,"v":input#15,x:gosub1448:close15
  322. 1462 prints1$:print"[145]valdidate durchgefuehrt      drueck f 1":gosub20:goto1400
  323. 1500 gosub80:prints5$;r1$
  324. 1501 printtab(5)"speichern unter"
  325. 1502 printtab(5)"programm-dateinamen  f 1 [146]"
  326. 1503 printtab(5)"speichern mit"
  327. 1504 printtab(5)"neuem dateinamen     f 3 [146]"
  328. 1505 printtab(5)"zum menue zurueck    f 7 [146]"
  329. 1506 poke198,0:wait198,1:gete$
  330. 1507 ife$=chr$(133)thena$="neue list/dru":gosub260:goto100
  331. 1508 ife$=chr$(134)thengosub1520:gosub260:goto100
  332. 1509 ife$=chr$(136)then100
  333. 1510 goto1006
  334. 1520 printtab(5)"geben sie den neuen"
  335. 1521 printtab(5)"dateinamen ein."
  336. 1522 printtab(5)"dateinamen : ................"
  337. 1523 r=20:s=18:l=16:gosub40:a$=e$
  338. 1524 iflen(a$)<=0then1523
  339. 1525 return
  340. 1600 gosub80:prints5$;r1$
  341. 1601 printtab(5)"einlesen unter"
  342. 1602 printtab(5)"programm-dateinamen  f 1 [146]"
  343. 1603 printtab(5)"einlesen mit"
  344. 1604 printtab(5)"neuem dateinamen     f 3 [146]"
  345. 1605 printtab(5)"zum menue zurueck    f 7 [146]"
  346. 1606 poke198,0:wait198,1:gete$
  347. 1607 ife$=chr$(133)thena$="neue list/dru":gosub269:goto100
  348. 1608 ife$=chr$(134)thengosub1620:gosub269:goto100
  349. 1609 ife$=chr$(136)then100
  350. 1610 goto1606
  351. 1620 printtab(5)"geben sie den "
  352. 1621 printtab(5)"dateinamen ein."
  353. 1622 printtab(5)"dateinamen : ................"
  354. 1623 r=20:s=18:l=16:gosub40:a$=e$
  355. 1624 iflen(a$)<=0then1563
  356. 1625 return
  357. 1700 gosub80:prints5$;r1$
  358. 1701 printtab(5)"sratchen der"
  359. 1702 printtab(5)"programm-datei       f 1 [146]"
  360. 1703 printtab(5)"sratchen des"
  361. 1704 printtab(5)"neuen dateinamens    f 3 [146]"
  362. 1705 printtab(5)"zum untermenue       f 7 [146]"
  363. 1706 poke198,0:wait198,1:gete$
  364. 1707 ife$=chr$(133)thena$="neue list/dru":goto1720
  365. 1708 ife$=chr$(134)thengosub1620:goto1720
  366. 1709 ife$=chr$(136)then1400
  367. 1710 goto1706
  368. 1720 x=0:prints2$:gosub20:open15,8,15,"s:"+a$:close15
  369. 1721 prints1$:print"[145]programm name geloescht      drueck f 1":gosub20:goto1400
  370. 2000 gosub1100
  371. 2010 gosub80:prints5$;r1$:printtab(5)"liste ausdrucken         f 1 [146]"
  372. 2011 printtab(5)"anschrift eingeben       f 3 [146]"
  373. 2012 printtab(5)"anschrift beibehalten    f 5 [146]"
  374. 2013 printtab(5)"datum eingeben           f 7 [146]"
  375. 2015 poke198,0:wait198,1:gete$
  376. 2016 ife$=chr$(133)thengosub90:open1,4:gosub2080:goto2070
  377. 2017 ife$=chr$(134)thengosub2029:goto2010
  378. 2018 ife$=chr$(135)thengosub2060:open1,4:goto2070
  379. 2019 ife$=chr$(136)thengosub2040:goto2010
  380. 2020 goto2015
  381. 2029 printtab(5)"nachname : ...................."
  382. 2030 printtab(5)"vorname  : ...................."
  383. 2031 printtab(5)"strasse  : ...................."
  384. 2032 printtab(5)"plz :.... ort: ................"
  385. 2033 r=17:s=16:l=20:gosub40:a1$=e$
  386. 2034 r=18:s=16:l=20:gosub40:a2$=e$
  387. 2035 r=19:s=16:l=20:gosub40:a3$=e$
  388. 2037 r=20:s=10:l=4:gosub40:a4$=e$
  389. 2038 r=20:s=20:l=16:gosub40:a5$=e$
  390. 2039 return
  391. 2040 printtab(5)"geben sie das "
  392. 2041 printtab(5)"heutige datum ein."
  393. 2042 printtab(5)"datum : .. .. .."
  394. 2045 r=20:s=13:l=2:gosub40:d1$=e$:d1=val(d1$)
  395. 2046 iflen(d1$)<=0orlen(d1$)<>2ord1<=0ord1>31then2045
  396. 2050 r=20:s=16:l=2:gosub40:d2$=e$:d2=val(d2$)
  397. 2051 iflen(d2$)<=0orlen(d2$)<>2ord2<=0ord2>12then2050
  398. 2055 r=20:s=19:l=2:gosub40:d3$=e$:d3=val(d3$)
  399. 2056 iflen(d3$)<=0orlen(d3$)<>2ord3<=84ord3>99then2055
  400. 2057 d$=d1$+"."+d2$+".19"+d3$:return
  401. 2060 ifa1$=""thenprints7$:gosub20:goto2010
  402. 2070 iflen(a1$)<=0then2076
  403. 2072 print#1,spc(5);chr$(14);a2$;" ";a1$;chr$(15)
  404. 2073 print#1,spc(10);a3$
  405. 2075 print#1,spc(10);a4$;" ";a5$:print#1
  406. 2076 iflen(d$)<=0then2100
  407. 2077 print#1,spc(10)"datum : ";chr$(14);d$;chr$(15):print#1:goto2100
  408. 2080 prints9$:print#1,chr$(14);spc(15)"neuheiten";chr$(15):print#1:return
  409. 2100 q1$="prg.name          kategorie           blocks"
  410. 2102 q2$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  411. 2110 gosub2115:goto2117
  412. 2115 print#1,spc(10);q1$:print#1,spc(10);q2$:print#1:return
  413. 2117 v=0:forb=1tod:v=v+1
  414. 2120 x1=len(d$(b,1)):x=18-x1
  415. 2121 x2=len(d$(b,2)):y=20-x2
  416. 2125 ifv=60then2150
  417. 2130 print#1,spc(10);d$(b,1);spc(x);d$(b,2);spc(y);d$(b,3)
  418. 2140 next:print#1:close1:prints8$:gosub20:goto1000
  419. 2150 prints1$:print"[145]papier wechseln              drueck f 1":gosub20:v=0:gosub2115:prints9$
  420. 2151 goto2140
  421. 4000 gosub4001:print"[147]":prints2$:gosub20:printx1$:print"":goto4016
  422. 4001 x1$=s1$+"              directory                ":return
  423. 4016 w=0:q=0:z=0:c=0:open1,8,0,"$0":get#1,a$,b$
  424. 4050 get#1,a$,b$:get#1,a$,b$:c=0
  425. 4060 ifa$<>""thenc=asc(a$)
  426. 4070 ifb$<>""thenc=c+asc(b$)*256
  427. 4080 z=z+1:printtab(5)mid$(str$(c),1);tab(9);
  428. 4090 get#1,b$:ifst<>0then4190
  429. 4100 ifb$<>chr$(34)then4090
  430. 4110 w=w+1:ifw>1then4140
  431. 4120 print"";:get#1,b$:ifb$<>chr$(34)thenprintb$;
  432. 4130 q=q+1:ifq<16then4120:goto4150
  433. 4140 get#1,b$:ifb$<>chr$(34)thenprintb$ ;:goto4140
  434. 4150 get#1,b$:ifb$=chr$(34)then4150
  435. 4160 printtab(25);:c$=""
  436. 4170 c$=c$+b$:get#1,b$:ifb$<>""then4170
  437. 4180 printleft$(c$,3)
  438. 4181 ifz=16thengosub4200:z=0:goto4080
  439. 4190 ifst=0then4050
  440. 4191 print"blocks free":close1
  441. 4192 prints1$:print"[145]directory ende               drueck f 1":gosub20:goto1400
  442. 4200 prints1$:print"[145]weiter f 1                  beenden f 3"
  443. 4201 poke198,0:wait198,1:gete$
  444. 4202 ife$=chr$(133)thenprint"[147]":printx1$:print"":return
  445. 4203 ife$=chr$(134)thenclose1:goto1400
  446. 4204 goto4201
  447. 4500 prints1$:print"[145]nicht loeschen f 1         loeschen f 3"
  448. 4501 poke198,0:wait198,1:gete$
  449. 4502 ife$=chr$(133)then1210
  450. 4503 ife$=chr$(134)then4510
  451. 4504 goto4501
  452. 4510 y=0:j=0:fory=btod:forj=1to3:d$(y,j)=d$(y+1,j):nextj,y
  453. 4511 forj=1to3:d$(d,j)=" ":next:d=d-1
  454. 4512 prints1$:print"[145]datensatz geloescht          drueck f 1":gosub20:goto309
  455. 5000 print"[147] [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
  456. 5001 print" [154]*                                   *"
  457. 5002 print" [154]*           programm e n d e        *"
  458. 5003 print" [154]*                                   *"
  459. 5004 print" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
  460. 5005 printtab(6)"programm beenden        [1]"
  461. 5006 printtab(6)"programm wiederholen    [2]"
  462. 5008 poke198,0:wait198,1:gete$
  463. 5009 ife$="1"thensys64760
  464. 5010 ife$="2"then100
  465. 5012 goto5008
  466. 0 
  467.